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1.  INTRODUCTION 


Vulnerability/lethality  analyses  performed  at  the  Ballistic  Research 
Laboratory  (BRL)  generally  require  a  computer  description  of  the  target 
under  investigation.  The  target  simulation  is  most  often  accomplished 
through  a  method  known  as  combinatorial  geometry  (COM-GEOM).  |h^ 
resulting  target  descriptions  are  commonly  referred  to  as  COM-GEOM1 * 3 *’ 
descriptions.  The  COM-GEOM  technique  for  target  descriptions  employs  a 
variety  of  basic  geometric  solids  in  order  to  model  all  of ^  the 
components  of  the  target.  The  BRL  tank  vulnerability  program'5  is 

routinely  used  to  estimate  the  vulnerability  of  many  armored  targets. 

In  particular,  this  program  requires  the  COM-GEOM  target  descriptions  to 

include  internal  air  modeled  in  the  description. 

This  report  describes  the  interactive  program  CADAIR  which  aids  the  user 
in  describing  internal  air  for  COM-GEOM  descriptions.  The  program  is 
useful  during  the  creation  phase  of  a  COM-GEOM  description  or  in 

modifying  an  earlier  COM-GEOM  description  which  lacked  internal  air.  In 
addition,  various  other  capabilities  of  the  CADAIR  program  are 
di scussed. 


II.  BACKGROUND 

The  BRL  tank  vulnerability  computer  program  (VAMP)  is  based  on  the 
"compartment  model"  of  vehicle  vulnerability.  In  this  lethality  model, 
damage  correlations  for  entire  compartments  are  considered  in  order  to 
arrive  at  final  kill  probabilities  for  the  target.  Usually  the  vehicle 
is  divided  into  two  compartments:  the  engine  compartment  and  the  crew 
compartment.  It  has  been  found  convenient  to  identify  "compartments"  by 
describing  the  compartment  air  in  the  CUM-GEOM  description.  The  target 
description  air  is  merely  coded  in  order  to  distinguish  the  crew 
compartment  (02)  from  the  engine  compartment  (05).  Special  other 
compartments  may  similarly  be  identified  by  this  technique. 


1 L.  Bain  and  M.  Reisinger ,  "The  GIFT  Code  User  Manual ,  Volume  I3  Introduction 
and  Input  Requirements 3"  BRL  Report  No.  1802 ,  July  1975  (Unclassified)- 
(AD  B006027L). 

9 

G.  Kuehlj  L.  Bain  and  M.  Reisinger ,  "The  GIFT  Code  User  Manual ,  Volume  II , 
The  Output  Options-,"  BRL  Report  ARBRL-TR-021 89,  September  1979  (Unclassified) 
(AD  A078364). 

3 

C.  Nail  and  T.  Bearden ,  "Vulnerability  Analysis  Methodology  Program  (VAMP) 

A  Combined  Compartment- Kill  Vulnerability  Program , "  Computer  Sciences 
Corporation ,  October  1979  (Unclassified) . 
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III.  TARGET  DESCRIPTION 


A  brief  summary  of  the  COM-GEOM  technique  is  presented  in  Appendix  A. 
The  descriptions  utilize  a  variety  of  basic  geometric  solids  for 
describing  the  actual  target.  The  solid  types  currently  available  for 
building  COM-GEOM  descriptions  are  listed  in  Table  A-l.  These  solids, 
with  the  exception  of  the  ARS,are  fundamentally  simple  geometric  shapes. 
The  ARS  (triangular  surfaced  polyhedral  solid)  may  be  used  to  model 
extremely  complex  shapes.  Figure  1  illustrates  the  essential 
characteristics  of  the  ARS  solid. 
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SPECIFY:  The  X,  Y,  Z  coordinate  values  of  the  vertices  of  the 


concave  or  convex  polyhedron.  Either  1)  order  and 
record  the  vertices  by  the  number  of  curves  (M)  and 
number  of  points  per  curve  (N)  system  or  2)  order  and 
record  the  vertices  by  the  scheme  associated  with  the 
SHOT  GENERATOR  Code  and  specify  the  number  of  recorded 
points  (ND) . 


Figure  1.  Basic  ARS  Solid 


Both  the  number  of  curves  and  number  of  points  per  curve  may  vary 
considerably  from  that  shown  in  Figure  1.  An  example  of  the  possible 
complexity  of  the  ARS  solid  is  shown  in  Figure  2  which  depicts  an  entire 
surface  of  a  tank  turret.  The  versatility  of  the  ARS  solid  makes  it 
ideally  suited  for  describing  interior  air  in  target  descriptions. 

In  order  to  avoid  errors,  the  user  must  exercise  caution  when  modeling 
air  in  the  COM-GEOM  description.  Figure  3  shows  a  cross  section  of  a 
tank  turret  which  has  two  types  of  errors  that  may  occur  if  the  internal 
air  is  modeled  incorrectly.  If  the  internal  air  (bounded  by  solid  line) 
does  not  "fill  up"  the  interior  compartment  volume  or  if  it  "spills 
over"  the  exterior  surface  of  the  compartment,  then  errors  will  occur 
during  further  computer  processing.  An  acceptable  modeling  technique 
for  internal  air  is  illustrated  in  Figure  4.  Note  in  this  figure  that 
the  boundary  of  the  internal  air  is  defined  within  the  shell  wall  which 
identifies  the  compartmentalized  volume. 

In  view  of  these  constraints  and  the  previously  noted  versatility  of  the 
ARS  solid,  it  therefore  is  apparent  that  this  solid  type  is  well  suited 
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Figure  2.  Example  of  Large  ARS  Solid 
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Figure  3.  Example  of  Air  Modeling  Errors  in  COM-GEOM  Description 


O 

CD _ 

0.0 


— I 
165. 


Figure  4.  Example  of  Acceptable  Modeling  of  Air  in  a  COM-GEOM  Description 
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Figure  5.  Inverted  Tumbler  Cross-Cuts 


for  modeling  internal  air.  The  purpose  of  the  CADAIR  program  is  to  aid 
the  user  in  constructing  an  ARS  solid  which  will  conform  to  the 
aforementioned  requirements. 


IV.  CADAIR  PROGRAM  OVERVIEW 

D 

CADAIR  is  an  interactive  graphics  program  for  use  with  a  TEKTRONIX  ter¬ 
minal  operating  within  the  NOS  (version  1.4)  environment.  The  Network 
Operating  System  (NOS)  controls  the  operation  of  CDC  CYBER  170  series, 
CDC  CYBER  70,  Models  71,  72,  73,  and  74,  and  CDC  6000  series  computer 
systems.  CADAIR  is  aR  FORTRAN  program  which  requires  the  library 
software  package  DISSPLAK  which  is  a  proprietary  product  of  ISSCO4.  The 
program  CADAIR  listedRin  Appendix  B  is  currently  used  at  BRL  in  conjunc¬ 
tion  with  a  TEKTRONIX*  model  4010  terminal  operating  at  9600  baud. 

2 

CADAIR  requires  input  which  is  generated  from  the  GIFT  code  under  op¬ 
tion  XSECT.  This  option  produces  plot  files  which  define  cross- 
sectional  views  of  the  COM-GEOM  description.  Reference  2  is  recommended 
for  the  reader  unfamiliar  with  the  XSECT  option  of  the  GIFT  code.  An 
example  of  this  type  of  plot  for  the  case  of  a  simple  inverted  tumbler 
is  illustrated  in  Figure  5. 

The  use  of  the  CADAIR  program  for  describing  air  within  the  inverted 
tumbler  (Figure  5)  will  serve  as  an  example  in  the  following  section. 
The  user  is  free  to  select  any  number  and  location  of  cross-cuts  when 
using  the  XSECT  option  of  the  GIFT  code.  The  judicial  selection  of  cut¬ 
ting  planes  which  reflect  "moderate"  changes  between  succeeding  cross¬ 
cut  shapes  is  recommended.  In  the  normal  use  of  the  XSECT  option,  there 
is  no  information  relating  to  the  position  of  the  cutting  plane  (Z 
value)  available  in  the  plot  file  output.  This  third  coordinate  infor¬ 
mation  (Z  values)  is  clearly  vital  for  describing  an  ARS  solid  in  three 
dimensional  space.  However,  a  simple  method  for  accomplishing  this  is 
readily  available.  The  regular  XSECT  plot  title  may  be  replaced  with 
the  number  of  cutting  planes  and  their  respective  locations  (Z  values). 
Figure  6  shows  the  prescribed  format  to  be  used  for  replacing  the  TITLE 
card  for  the  XSECT  option  of  the  GIFT  code. 
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F5.0 

F5.0 

F5.0 

.... 

F5.0 

NUM 

Zl 

Z2 

Z3 

Zn 

NUM-  Total  number  of  cross-cuts  in  plot  file 
(not  to  exceed  20) 

Zi-  Cutting  plane  position  (  Z-value  ) 
for  i  th  cross  cut  in  the  COM-GEOM 
coordinate  system 

Figure  6.  Title  Replacement  Format  for  XSECT  Input 

^ Integrated.  Software  Systems  Corporation,  ISSCCfi,  San  Diego,  CA  92121 
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The  CADAIR  graphics  program  displays  each  of  the  cross-sectional  plots 
on  the  graphics  screen  and  prompts  the  user  to  select  points  for  each 
ARS  curve.  The  user  inputs  the  (X,  Y)  values  for  these  points  by  mani¬ 
pulating  the  position  of  the  cross  hairs  that  appear  on  the  graphics 
screen.  Advantage  from  visual  feedback  thereby  aids  the  user  in  fitting 
the  ARS  curve  entirely  within  the  shell  wall  boundary  around  the  inter¬ 
nal  compartment.  The  user  may  save  the  ARS  data  file  (punch)  thus 
created  at  the  conclusion  of  the  point  selection  procedure  from  each 
cross-cut  plot.  This  file  is  appropriately  formatted  for  use  in  a  COM- 
GEOM  description. 


V.  CADAIR  PROGRAM  USER  GUIDE 

The  CADAIR  program  currently  in  use  at  BRL  is  accessed  by  entering  the 
commands  that  are  listed  in  Figure  7  on  a  TEKTRONIX1'  4010. 


GET,TAPE1 2=PLTFIL  E/UN=SH I  ELLS 
ATTACH, DISSPLA/UN=DISSPLA 
LIBRARY, DISSPLA 
GET  ,G0X/UN=SHIELLS 
GOX 


Figure  7.  MFB  Commands  to  Access  CADAIR  Program  at  BRL 


In  Figure  7,  PLTFILE  is  the  plot  file  output  from  the  XSECT  option  of 
the  GIFT  code  that  was  discussed  in  the  previous  section.  File  DISSPLA 
is  the  proprietary  graphics  software  product  of  ISSCO.  In  Figure  7,  GOX 
is  the  binary  file  which  contains  the  compiled  CADAIR  program. 

When  the  last  command  in  Figure  7  is  entered  on  the  terminal  keyboard, 
the  screen  is  cleared  and  the  MENU  is  displayed. 

Figure  8  shows  a  copy  of  the  MENU  which  appears  on  the  graphics  termi¬ 
nal.  The  terminal  cross  hairs  also  become  visible  at  this  time.  A 
keyboard  response  from  the  terminal  user  is  required  whenever  the 
cross  hairs  become  visible. 

The  required  response  generally  requires  the  user  to  change  the  location 
of  the  cross  hairs  and  then  push  any  punctuation  key  on  the  keyboard  in¬ 
stead  of  the  carriage  return  (CR).  The  position  of  the  cross  hairs  is 
changed  by  two  dials  (horizontal  and  vertical)  available  to  tne  user 
near  the  terminal  keyboard. 
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REWIND 

BRCKTRfiCK 

DISPLAY 

BUILD  RRS 

ZOOM 

EXIT 


Figure  8.  CADAIR  MENU 


The  MENU  lists  several  different  procedures  available  to  the  user.  The 
user  may  optionally  select  any  procedure  by  merely  positioning  the  hor¬ 
izontal  cross  hair  over  the  name  of  the  procedure  and  then  pressing  any 
punctuation  key.  When  the  procedure  is  completed  the  MENU  will  reappear 
on  the  screen. 


The  explanation  of  each  procedure  (MENU  item),  supplemented  with  illus- 
trati ons,  f ol  1  ows : 


REWIND 


This  MENU  entry  permits  the  terminal  user  to  rewind  the  entire 
plot  file.  This  is  a  minor  procedure  that  helps  the  user  when 
^reviewing  the  various  cross-cuts  plots  on  PLOTFILE. 


BACKTRACK  This  MENU  entry  permits  the  user  to  back  up  the  plot  file 
(PLOTFILE)  in  order  to  preview  the  previous  cross-sectional 
pi  ot. 

DISPLAY  This  procedure  displays  the  current  cross-section  plot  in 
PLOTFILE  on  the  graphics  terminal.  Figure  9  illustrates  a 
typical  example  of  a  cross-sectional  view  of  a  tank  turret. 
Successive  use  of  this  procedure  allows  the  user  to  preview 
each  cross-sectional  plot  in  the  plot  file  (PLOTFILE).  This 
procedure  may  also  be  applied  to  plot  files  generated  by  the 
PICTUR  option  of  the  GIFT  code  if  one  condition  is  satisfied. 
The  title  card  (Fiqure  6)  used  for  the  PICTUR  run  should  be 
blank.  Effectively  the  plot  file  output  from  PICTUR  could  be 
edited  to  accomplish  the  same  thing.  Figure  10  illustrates  a 
typical  perspective  view  of  a  tank  which  was  produced  by  the 
PICTUR  option  of  the  GIFT  code. 
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Figure  9.  DISPLAY  Cross-Section  Example 
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Figure  10.  DISPLAY  Perspective  View  Example 
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BUILD  ARS 


This  procedure  encompasses  the  overall  purpose  of  the  CADAIR 
program.  When  this  procedure  is  initiated,  the  plotfile  is 
automatically  rewound.  Figure  11  shows  the  first  cross 
section  (with  prompts)  which  is  displayed  for  the  example  of 
the  inverted  tumbler.  A  requirement  for  the  ARS  solid  is  that 
the  first  and  last  curves  degenerate  around  a  single  point. 
Therefore,  the  user  is  prompted  by  the  message  "SELECT  FIRST 
ARS  POINT/CURVE."  The  user  is  expected  to  position  the  termi¬ 
nal  crosshairs  so  that  they  intersect  within  the  shell  wall 
boundary  of  the  displayed  cross  section.  The  user  then 
presses  any  punctuation  key  to  send  the  cross  hair  X  and  Y  po¬ 
sitional  information  to  the  host  computer.  The  program 
resumes  by  clearing  the  screen,  displaying  the  same  cross- 
section  and  prompting  the  user  with  the  message  "SELECT  POINT 
FOR  ARS  CURVE."  A  second  requirement  for  describing  ARS 
solids  is  that  all  the  intermediate  curves  (not  first  or  last 
curve)  be  closed  curves.  This  means  that  the  first  and  last 
point  of  a  curve  have  the  same  position.  The  user  is  thus 
free  to  select  points  that  describe  a  curve  which  satisfy  any 
arbitrary  shape  requirement.  In  the  case  of  describing  inter¬ 
nal  air,  the  curve  would  be  confined  to  the  shell  surrounding 
the  internal  compartment.  Figure  12  shows  the  example  of  the 
internal  air  boundary  curve  for  the  inverted  tumbler.  Line 
segments  with  arrowheads  are  displayed  on  the  screen  to  aid 
the  user  while  the  ARS  curve  is  being  constructed.  The  ARS 
Curve  point  selection  mode  terminates  automatically  when  the 
user  closes  the  curve  (i.e. ,  the  last  point  matches  the  first 
point).  When  the  user  closes  the  ARS  curve,  the  message  "END 
OF  CURVE"  is  displayed  on  the  screen.  Figure  13  illustrates 
this  for  the  example  of  the  inverted  tumbler.  The  program 
resumes  when  the  user  presses  the  carriage  return  (CR),  key. 
Consideration  need  be  directed  to  two  further  requirements  for 
describing  the  ARS  solid.  Each  curve  of  the  ARS  solid  must 
have  the  same  number  of  points.  This  number  (not  to  exceed 
19)  is  automatically  set  by  the  user  depending  on  the  number 
of  points  needed  to  define  the  first  closed  curve.  Therefore, 
each  subsequent  curve  must  have  the  same  number  of  points  as 
the  first  curve.  Additionally,  the  consecutive  points  in  ad¬ 
jacent  ARS  curves  should  retain  a  "reasonable"  degree  of 
cadence  or  correspondence.  Figure  14  illustrates  the  display 
on  the  screen  which  aids  the  user  in  dealing  with  the  two  ad¬ 
ditional  ARS  requirements  outlined  above.  This  display  in¬ 
cludes  a  "star"  along  with  the  usual  cross  section  and  related 
prompting  messages.  The  star-like  guide  is  centered  at  the 
lateral  position  of  the  first  degenerate  ARS  curve  which  was 
user  defined.  Each  radial  arrow  in  the  star  points  to  the 
user  selected  points  of  the  preceding  curve  of  tne  ARS. 
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Figure  11.  Inverted  Tumbler  -  First  Display 
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Figure  12.  Inverted  Tumbler  -  Second  Display 
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Figure  13.  Inverted  Tumbler  -  Second  Display  -  End 
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Figure  14.  Inverted  Tumbler  -  Third  Display  -  Start 
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Figure  15.  Inverted  Tumbler  -  Third  Display  -  Midway 


Figure  16.  Perspective  View  of  Completed  ARS  Solid 


BUILD 

(cont 


ZOOM 


EXIT 


ARS 

) 


The  purposes  of  star  guide  are  twofold:  It  helps  the  user  to 
keep  track  of  the  number  of  points  that  now  must  be  used  in 
defining  the  curve,  and  it  aids  the  user  in  selecting  points 
in  the  vicinity  of  the  same  angular  zone  to  maintain  the 
cadence  mentioned  above.  Figure  15  illustrates  this  by  show¬ 
ing  the  user  defined  third  ARS  curve  partially  completed. 
When  the  curve  is  completed,  the  message  "END  OF  CURVE"  is 
displayed.  The  user  presses  the  carriage  return  key  and  the 
process  described  above  repeats  for  all  of  the  remaining  ARS 
curves.  In  order  to  save  this  file  the  user  should  enter  the 
command  SAVE, PUNCH  after  returning  to  the  operating  system. 
Figure  16  illustrates  a  perspective  view  of  the  ARS  solid 
which  was  described  in  this  example.  To  exit  prematurely  from 
this  procedure,  the  user  need  only  move  the  horizontal  cross¬ 
hair  below  the  plot  axis  while  selecting  points.  The  screen 
will  be  cleared  and  the  menu  displayed  again. 


This  function,  as  the  name  implies,  permits  the  user  to  op¬ 
tionally  expand  a  small  region  of  the  displayed  plot  for  con¬ 
venient  viewing.  Initially  the  current  cross-section  plot  in 
PLOTFILE  is  displayed  on  the  graphics  screen.  Figure  17  il¬ 
lustrates  an  example  with  a  cross-sectional  view  of  a  tank  cu¬ 
pola.  The  user  is  required  to  press  a  punctuation  key  to  con¬ 
tinue  this  procedure.  The  prompting  message  "SELECT  LOWER 
LEFT  CORNER"  instructs  the  user  to  define  the  lower  left 
corner  of  a  "window"  which  will  later  be  expanded  to  fill  up 
the  whole  plot  area.  The  "window"  definition  operation  is 
performed  by  the  user  through  the  usual  use  of  the  cross  hairs 
and  punctuation  key.  The  user  then  responds  similarly  to  the 
next  prompting  message  "SELECT  UPPER  RIGHT  CORNER."  The  user 
defined  window  area  is  then  magnified  and  displayed  on  the 
graphics  screen.  Figure  18  illustrates  the  enlarged  view  of 
the  window  area  shown  in  Figure  17.  This  procedure  will  also 
function  on  plot  files  created  by  PICTUR  provided  that  the  ti¬ 
tle  card  is  modified  as  discussed  for  the  DISPLAY  procedure. 

This  menu  entry  allows  the  user  to  return  to  the  network 
operating  system  (NOS)  to  perform  other  computer  operations 
possibly  unrelated  to  CADAIR. 
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VI.  ARS  COORDINATE  TRANSLATION 


The  ARS  solid  described  by  the  preceding  technique  may  need  to  undergo  a 
coordinate  translation  before  it  is  used  in  the  COM-GEOM  description. 
This  is  necessary  because  the  XSECT  option  of  the  GIFT  code  changes  the 
coordinate  system  of  the  COM-GEOM  description  as  it  creates  the  cross- 
section  plot  file.  The  amount  of  coordinate  change  depends  on  how  the 
XSECT  option  was  set  up  to  run.  Figure  19  illustrates  the  input  re¬ 
quired  by  the  XSECT  option  which  defines  the  boundary  of  the  cross- 
section  plot. 
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P ( 1  - 3)  -  Specify  the  x,  y,  and  z  coordinate  of  the  point  in  the  upper 
left  corner  on  plotter  of  cross  section. 

P(4-6)  -  Specify  the  x,  y,  and  z  coordinate  of  the  point  in  the  lower 
left  corner  on  plotter  of  cross  section. 

P(7-9)  -  Specify  the  x,  y,  and  z  coordinate  of  the  point  in  the  lower 
right  corner  on  plotter  of  cross  section. 


Figure  19.  Plane  Card  for  XSECT  Option 


Figure  20  shows  a  cross-sectional  plot  of  a  target  with  the  parameters 
of  Figure  19  indicated  on  the  drawing.  The  coordinates  of  the  points  of 
the  XSECT  output  file  include  no  negative  values.  Table  I  summarizes 
the  required  translation  of  the  ARS  solid  in  order  that  it  be  compatible 
with  the  associated  COM-GEOM  description.  Additionally,  in  case  2  the  Y 
and  Z  coordinate  values  must  be  exchanged.  In  case  3  both  the  X  and  Z 
values  and  then  the  Y  and  Z  coordinate  values  need  be  exchanged,  respec¬ 
tively. 
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Figure  20.  XSECT  Plot  Defined  by  C0M-GE0M  Coordinates 


Table  1.  Coordinate  Transformation  Formulae 


CASE  1:  Z-Plane  XSECT  Plots  (P3  =  P6  =  Pg) 

Translate  ARS  solid  X  values  by  minimum  of  Pi,  P4  or  P7. 

Translate  ARS  solid  Y  values  by  minimum  of  P2,  P5  or  P3. 

CASE  2:  Y-Plane  XSECT  Plots  (Pg  =  P5  =  Ps) 

Translate  ARS  solid  X  values  by  minimum  of  P] ,  P4  or  P7. 

Translate  ARS  solid  Y  values  by  minimum  of  P3,  P5  or  Pg. 

Exchange  the  Z  and  Y  values  of  the  ARS  solid. 

CASE  3:  X-Plane  XSECT  Plots  (P-|  =  P4  =  P7) 

Translate  ARS  solid  Y  values  by  minimum  of  P2,  P5  or  Pg. 

Translate  ARS  solid  Z  values  by  minimum  of  P3,  Pg  or  Pg. 

Exchange  the  X  and  Z  values  of  the  ARS  solid;  then  exchange 
the  Y  and  Z  values  of  the  ARS  solid. 


VII.  DISCUSSION 

The  preceding  description  of  the  CADAIR  program  was  largely  concerned 
with  its  single  utility  for  describing  internal  air  in  COM-GEOM  descrip¬ 
tions.  There  are,  however,  several  other  possible  uses  for  the  CADAIR 
program.  COM-GEOM  descriptions  of  armored  vehicles  are  often  required 
to  include  many  small  "boxes"  (i.e. ,  radio,  control  panels,  etc.)  that 
may  be  attached  to  the  vehicle  main  armor.  In  the  regular  process  of 
modeling  these  boxes,  there  often  are  problems  with  the  boxes  overlap¬ 
ping  the  armor  or  each  other  in  the  COM-GEOM  description.  The  CADAIR 
program  may  be  used  for  modeling  these  small  boxes  with  simple  (4 
pts/curve)  ARS  solids.  The  advantage  is  clear  for  the  user  being  able 
to  see  where  the  "boxes"  are  placed  in  relation  to  other  target  com¬ 
ponents  to  avoid  overlaps.  The  problem  of  "overlaps"  in  COM-GEOM 
descriptions  has  incurred  many  delays  and  cost  increases  for  doing  tar¬ 
get  descriptions. 

It  is  occasionally  desired  to  quantitatively  determine  the  protection 
afforded  an  armored  vehicle  through  the  addition  of  a  ballistic  liner. 
For  the  case  of  curved  tank  turrets,  it  can  prove  troublesome  to  modify 
COM-GEOM  descriptions  to  include  a  liner.  In  these  situations,  advan¬ 
tage  may  be  realized  through  the  use  of  the  CADAIR  program.  The  XSECT 
output  file  may  be  simulated  by  other  means  in  order  to  utilize  the  CA¬ 
DAIR  program  to  construct  original  COM-GEOM  descriptions.  Figure  2  il¬ 
lustrates  such  an  example  for  the  M60A1  turret  which  was  created  through 
use  of  the  CADAIR  program.  In  this  case,  the  tank  manufacturer  made 
available  a  series  of  drawings  which  showed  "cross-cut"  sections  of  the 
turret  casting.  Measurements  were  taken  from  these  drawings  in  order  to 
build  a  plot  file  (XSECT  equivalent  output  file)  suitable  as  input  for 
the  CADAIR  program.  Figure  21  illustrates  a  typical  ARS  curve  made  dur¬ 
ing  this  particular  exercise  of  the  CADAIR  program.  The  ARS  solids 
which  describe  the  M60A1  turret  exterior  surface  are  shown  in  Figure  2. 
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Figure  21.  Turret  Cross-Cut 


APPENDIX  A 

Combinatorial  Geometry  Background 
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Combinatorial  Geometry  Background 


The  GIFT  computer  code  requires  a  combinatorial  geometry  (COM-GEOM) 
target  description  as  input  data.  Familiarization  with  the  COM-GEOM 
technique  and  terminology  is  required  to  understand  the  target 
description.  The  following  is  a  brief  introduction  to  the  COM-GEOM 
technique  of  target  description.  Reference  1  gives  a  more  detailed 
account  of  the  COM-GEOM  method  as  required  for  input  to  the  GIFT  code. 


Engineering  drawings,  manuals,  photographs  or  other  descriptive  material 
are  required  to  produce  a  COM-GEOM  description.  The  COM-GEOM  technique 
utilizes  twelve  basic  geometric  solids  (see  Table  A-l)  combined  under 
three  set-theory  (BOOLEAN)  type  operations  to  define  the  shape  and 
location  of  each  component  of  a  target.  A  complete  COM-GEOM  description 
contains  the  three  distinct  parts:  a  solid  table,  a  region  table  and  a 
region  identification  table. 


A  solid  is  defined  as  one  of  the  twelve  geometric  shapes  available  for 
COM-GEOM  descriptions.  The  parameters  of  a  solid  give  its  location, 
size  and  orientation  within  the  coordinate  system  established  for  the 
target.  Each  solid  is  uniquely  numbered  and  its  parameters  listed  in 
the  sol  id  table. 


A  region  is  the  space  occupied  by  a  single  solid  or  combination  of 
solids.  Solids  are  combined  using  the  three  operations:  intersection 
(+),  union  (OR)  and  difference  (-).  The  intersection  (+)  of  two  solids 
is  defined  as  the  space  in  common  with  both  solids.  The  union  (OR)  of 
two  solids  is  defined  as  the  space  in  both  of  the  solids.  The 

difference  (-)  of  two  solids  is  defined  as  the  space  in  the  first  solid 
minus  the  space  of  the  second  solid.  Figure  A-l  is  a  graphic 

illustration  of  these  three  operations.  Any  number  of  solids  from  the 
solid  table  may  be  used  to  define  a  region.  Each  region  is  uniquely 

numbered  and  its  defined  combination  of  solids  is  listed  in  the  region 

tabl  e. 


In  the  region  identification  table,  each  region  is  assigned  an 
identification  code  number.  These  code  numbers  either  identify  each 
specific  region  as  a  component  of  the  target  or  as  an  air  space.  Space 
not  described  as  a  region  is  assigned  the  air  space  code  "01"  by  the 
GIFT  code.  It  is  not  necessary  to  describe  the  inside  air  of  a  target, 
in  which  case  both  inside  and  outside  air  will  be  identified  by  the  01 
space  code.  However,  in  many  targets,  it  is  important  to  distinguish 
between  inside  and  outside  air.  For  these  targets,  all  interior  space 
is  described  as  a  region  and  identified  as  inside  air,  leaving  the  01 
space  code  for  outside  air  only.  The  RAYAIR  subroutine  of  the  GIFT  code 
allows  any  region  identified  with  a  space  code  to  overlap  any  region 
identified  with  an  item  code  or  the  same  space  code.  However,  regions 
with  different  code  numbers  cannot  overlap. 
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Table  A-l.  Geometric  Solids  Used  in  CCM-GEOM  Descriptions 


SYMBOL 

SOLID  NAME 

RPP 

Rectangular  Parallelepiped 

BOX 

Box 

RAW 

Right  Angle  Wedge 

ARB 

Arbitrary  Convex  Polyhedron 

ARS 

Triangular  Surfaced  Polyhedron 

ELL 

Ellipsoid  of  Revolution 

SPH 

Sphere 

RCC 

Right  Circular  Cylinder 

REC 

Right  Elliptical  Cylinder 

TRC 

Truncated  Right  Angle  Cone 

TEC 

Truncated  Elliptic  Cone 

TOR 

Torus 

The  region  identification  table  also  allows  40  alphanumeric  characteris¬ 
tics  of  descriptive  data  per  region.  The  analyst  needs  to  know  the 
type  and  percentage  of  material  making  up  each  region.  The  percentage 
value  is  used  to  produce  an  equivalent  1 ine-of-sight  thickness  of  the 
material  type.  This  information  is  included  in  the  40  characters  of 
descriptive  data  in  the  region  identification  table. 

The  three  tables  described  above  constitute  a  complete  C0M-GE0M  target 
description  as  required  for  input  to  the  GIFT  computer  code. 
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Intersection  (+),  Subtraction  (-),  Union  (OR)  of  Solids 
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APPENDIX  B 

CADAIR  Program  Listing 
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PRDGRAM  CADAIR  (INRUTtOUTPUT  * PUNCH ♦ T  APE5. T  APE 6  =  OUT PUT  *TAPE7tTAPElO*  0* 

I  tTAPE6=PUNCH*TAPEl2)  CaDAR  2 

CADAR  3 


•CADAIR*  IS  AN  INTERACTIVE  GRAPHICS  PROGRAM  WHICH  AIDS  THE  USER 
IN  CONSTRUCTING  *AHS*  SOLIDS  FOR  COM-GEDM  DESCRIPTIONS.  THIS 
VERSION  OF  *CaDaIR»  INITIATES  COMMUNICATIONS  WITH  THE  TEKTRDNlCs 
MODEL  4010  GRAPHICS  TERMINAL  AT  9600  BAUD.  sURRDUTINFs  IDENTIFlFD 
BELOW  MAKE  EXTENSIVE  USE  DF  THE  »DISSPLA»  LIBRARY  WHICH  IS  THE 
PROPRIETARY  PRODUCT  OF  ISSCOiINC. 


***  MENU  DEFINITIONS  *** 

REWIND  -  REWIND  TAPE  1 2  (PLDTFILE)  TO  BEGINNING  OF  TAPE 

BACKSPACE  -  REWIND  TAPE12  (PLOTFILE)  TO  START  OF  PREVIOUS  PLDT 

DISPLAY  -  DISPLAY  CURRENT  PLDT  ON  GRAPHICS  SCREEN 

BUILD  ARS  -  ASSIST  USER  IN  CONSTRUCTING  AN  ARs  SDL  ID 

ZOOM  -  • ZODM  IN*  ON  DISPLAYED  PLOT 

EXIT  -  RETURN  TO  OPERATING  SYSTEM  (NOS) 


COMMON  /ZAP/  ICDNT 
IC0NT=0 

CALL  TK4010  (9600) 
CALL  SETDEV  (6*6) 

1  CALL  CLEAR 
CALL  MENU 

CALL  CURSOR  (CXtCY) 
CALL  ENUGR  (0) 

CALL  CLEAR 
PRINT  *♦  CX « CY 


IF  (CY  .L  T .686.0.AND.CY.GT.655. )  CALL  RFDO 
IF  ( CY • LT .655.0.AND.CY.GT .624.)  CALL  BACKUP 
IF  (CY.LT.624.0.ANO.CY.GT.593. )  CALL  PICT 
IF  (CY. LT. 593.0. AND. CY.GT. 562.)  CALL  DRAW 
IF  (CY .LT.562.0.AND.CY.GT.53I. )  CALL  ZOOM 
IF  (CY. LT. 531.0. AND. CY.GT. 500.)  CALL  OUT 

GO  TO  I 
END 

SUBROUTINE  CLEAR 

SUBROUTINE  CLEAR  ERASES  THE  GRAPHICS  SCREEN 

I RACE =000740354033401400008 
CALL  CONNEC  (10) 

WRITE  (10)  IRACE 
CALL  DISCON  (10) 

RETURN 

END 

SUBROUTINE  MENU 

SUBROUTINE  MENU  DISPLAYS  THE  MENU  PRDCEDUPES  ON  THF  SCREEN 

CALL  PAGE  (0.1315*6.2) 

CALL  PHYSOR  (0.63*0.59) 

CALL  TITLE  (*  **I»*  *t0**  »*0*2. 0*5.2) 

CALL  FRAME 

CALL  MESSAG  ( » HEW IND * t 6 • 0. 2« 4 . 75 ) 

CALL  MESSAG  (  *6ACKTPACK* *9*0. 2*4. 5) 


CADAR  4 
CADAR  5 
CADAR  6 
CADAR  7 
CADAR  b 
CADAR  9 
CADAR10 
CAD AR 1 1 
CADAR 1 2 
C  AD  AR 1 3 
CADAR 1 4 
CADAR 1 5 
CAD AR 1 6 
CADAR I  7 
CADAR 1 8 
CADAR 1 9 
CADAR20 
CADAR21 
CADAR22 
CADAR23 
CADAR24 
CADAR25 
CADAR26 
CADAR27 
CADAR28 
CADAR29 
CADAR30 
CADAR31 
CADAR32 
CAD4R33 
CADAR34 
CADAR35 
CAD AR  36 
CADAR37 
CADAR38 
CADAR39 
CADAR40 
CADAR41 
CADAR4  2 
CADAR43 

*  43* 
CLEAR  2 
CLEAR  3 
CLEAR  4 
CLEAR  5 
CLEAR  6 
CLEAR  7 
CLEAR  8 
CLEAR  9 
CLEAR  10 

*  53* 
MENU  2 
MENU  3 
MENU  4 
MENU  5 
MENU  b 
MENU  7 
MENU  8 
MENU  9 
MENU  10 


oooo  ooooo  ooooo 


CALL  MESSAG  ( * 0 1 SPL AY  * » 7 » 0 . 2 » 4 . 25 ) 

CALL  MESSAG  MBUILO  ARS * »9» 0 .2 »4. 0 ) 

CALL  MESSAG  ( *  ZOOM • » 4f 0 .2» 3, 75 ) 

CALL  MESSAG  ( * EXI T ♦ »4» 0 .2 1 3 .5 ) 

RETURN 
ENO 

SUBROUTINE  CURSOR  (CX,CY) 

subroutine  CURSOR  TURNS  ON  The  terminal  CROSS-HAIRS  AND  FACILATEc; 
(  USER  SELECTED  )  SCREEN  COORDINATE  OATA  TRANSFER  TO  THE  HOST 
COMPUTER 

0 1  MENS  I  ON  IHY(2) 

I TRAN  =  0 0060 01 20 01 50 00 0  0 00  OB 
I TURN= 00 07403540 3340320 00 08 
MHX=000 0000000370000000 0B 
ML X= 00000000000000 37 0000B 
MHY=0 00 00 00 00 00 00 00 00 0378 
ML Ya 00 37 00000000000000008 
CALL  TSENO 
CALL  CONNEC  (10) 

WRITE  (10)  iTRANtITURN 
BUFFER  IN (  10tl) (IhY(l) ,IHY(2) ) 

CALL  OISCON  (10) 

JHX= ANO ( IHY ( 1 ) »MHX) 

JLX  =  AND (IHY (1 ) t  MLX ) 

JHY= ANO ( IHY ( 1 ) ,MHY) 

JLY  =  ANO( IHY (2) »  ML  Y ) 

KHX=SH I FT ( JHX.-19) 

KLX=SHIFT ( JLXt-12) 

KHY=SHIFT( JHY*5) 

KLY=SHIFT(JLY*-48) 

LX  =  OR ( KHX  t KLX ) 

LY  =  OR ( KHY  *KLY ) 

CX=FLOAT(LX) 

CY=FLOAT(LY) 

RETURN 
END 

SUBROUTINE  REOO 

SUBROUTINE  REOO  INITIATES  THE  PROCEDURE  FOR  THE  MENU  ENTRY 
•REWINO* 

COMMON  /ZAP/  ICONT 

REWINO  GRAPHICS  FILE  ATTACHED  TO  TAPE  12 
HEWINO  12 
ICONTxO 
RETURN 
ENO 

SUBROUTINE  BACKUP 

SUBROUTINE  BACKUP  INITIATES  THE  PROCEDURE  FOR  THE  MENU  ENTRY 
'HACKsPACE  * 

COMMON  /ZAP/  ICONT 

c  Backup  the  graphics  file  to  beginning  of  previous  plot 

IF  (ICONT. EG.0)  RETURN 
REWINO  12 
IC0NT= ICONT-1 
CALL  SKIPFE  (12*1 CUNT  «  0 ) 

RETURN 

ENO 

SUBROUTINE  PICT 
C 

C  SUBROUTINE  PICT  initiates  the  ppoceoure  for  thf  menu  ENTRY 
C  'DISPLAY* 


MENU  11 
MENU  12 
MENU  13 
MENU  14 
MENU  15 
MENU  16 

*  6R* 
CURSW  2 
CURsR  3 
CURSR  4 
CURsR  5 
CURSR  6 
CURSR  7 
CURSR  8 
CURSR  9 
CURSR 1 0 
CURSR 1 1 
CURSR 12 
CURsRl 3 
CURsR 1 4 
CURsR 15 
CURSR 1 6 
CURsRl 7 
CURSR18 
CURsRl 9 
CURSR20 
CURSR21 
CURSR22 
CURSR23 
CURSR24 
CURSR25 
CURSR26 
CURSR27 
CURSW2B 
CURSR29 
CURSW30 
CURSR31 
CURSR32 

*  101* 
REOO  2 
REOO  3 
REOO  4 
REOO  5 
REDO  6 
REOO  7 
REOO  8 
REOO  9 
REOO  10 
REOO  11 
*  112* 
BACKP  2 
BACKP  3 
BACKP  4 
BACKP  5 
BACKP  6 
BACKP  7 
BACKP  8 
BACKP  9 
BACKP10 
BACKP 1 1 
BACKP 1 2 
BACKP 1 3 
*  125* 
PICT  2 
PICT  3 
PICT  4 


>  J 


noon 


PICT 

5 

DIMENSION  X (300) *  Y(300>»  FIL<999> 

PICT 

6 

COMMON  /ZAP/  ICONT 

PICT 

7 

COMMON  /ZIP/  ZZ ( 30 ) «  HOR»  VET.  NC 

PICT 

8 

COMMON  /ZOP/  HAR.  VAT 

PICT 

9 

IF  (ICONT. EQ.O)  IEND=100 

PICT 

10 

IF  (ICONT. GE.IEND)  REWIND  12 

PICT 

11 

IF  (ICONT. GE.IEND)  RETURN 

PICT 

12 

i 

READ  (12.7)  NC. (ZZ(I> .1=1. NC> 

PICT 

13 

IF  (EOF ( 12) )  1.2 

PICT 

14 

2 

IF  (NC.EQ.I)  READ  (12.8)  A.B.HOR.VET 

PICT 

15 

IF  (NC.NE.I)  READ  (12.8)  A.B.C.HOR. VET 

PICT 

16 

CALL  PHYSOR  (3.0.0.59) 

PICT 

17 

CALL  TITLE  (•  DISPLAY  •  *  1 0 *  *  «.1.«  •♦1*5. 0.5.0) 

PICT 

18 

CALL  GRAF  (O.O.HOR.HOR.O.O.VET. VET) 

PICT 

19 

3 

READ  (12.9)  N 

PICT 

20 

IF  (N.EQ.I)  READ  (12.5)  HO.VE 

PICT 

21 

IF  (N.EQ.I)  GO  TO  3 

PICT 

22 

IF  (N.EQ.-2)  READ  (12,6)  NF 

PICT 

23 

IF  (N.EQ.-2)  READ  (12,5)  ( F IL ( I J > , I J= 1 . NF > 

PICT 

24 

IF  (N.E0.-2)  GO  TO  3 

PICT 

25 

IF  (N.EQ.O)  GO  TO  4 

PICT 

26 

READ  (12.10)  (X(I).Y(I)  ,I  =  1,N> 

PICT 

27 

CALL  CURVE  (X.Y.N.O) 

PICT 

28 

GO  TO  3 

PICT 

29 

4 

CONTINUE 

PICT 

30 

CALL  CURSOR  (CX.CY) 

PICT 

31 

CALL  ENDGR  (0) 

PICT 

32 

CALL  RESET  ( *  PHYSOR ' ) 

PICT 

33 

ICONT= ICONT ♦ 1 

PICT 

34 

har=hoh 

PICT 

35 

vat=vet 

PICT 

36 

IEND=NC 

PICT 

37 

RETURN 

PICT 

38 

PICT 

39 

5 

FORMAT  (2F12.4) 

PICT 

40 

6 

FORMAT  ( 1 1 1 0  > 

PICT 

41 

7 

FORMAT  (I5.20F5.I) 

PICT 

42 

8 

FORMAT  ( 6F 1 2 . 4  > 

PICT 

43 

9 

FORMAT  (1110) 

PICT 

44 

10 

FORMAT  (6F12.4) 

PICT 

45 

ENO 

PICT 

46 

SUBROUTINE  DRAW 

*  171 

DRAM 

2 

SUBROUTINE  DRAW  INITIATES  THE  PROCEDURE  FOR  THE  ENTRY 

DRAM 

3 

•BUILD  ARS' 

ORAM 

4 

DRAW 

5 

DIMENSION  X  (  30 «  30  )  »  YI30.30),  ZOO.  30).  XC(2>»  YC(2) 

ORAW 

6 

COMMON  /ZAP/  ICONT 

DRAW 

7 

COMMON  /ZIP/  ZZ ( 30 ) «  HOR.  VET,  NC 

DRAW 

8 

CALL  REOO 

DRAW 

9 

AXs=365.0SAYs=63.0 

DRAW 

10 

CALL  CLEAR 

DRAW 

11 

CALL  PACT 

DRAW 

12 

IF  (NC.EQ.I)  CALL  ENOPL  ( 0 ) 

DRAW 

13 

IF  (NC.EQ.I)  RETURN 

DRAW 

14 

CALL  HEIGHT  (.07) 

ORAW 

15 

CALL  MESSAG  ('SELECT  FIRST  ARS  PO I  NT/CUR VES • » 1 00 .-2.5, 5. 0 > 

ORAW 

16 

CALL  RESET  ( ’HEIGHT  * ) 

ORAW 

17 

CALL  CURSOR  (CX.CY) 

DRAW 

18 

IF  (CX.LT. AXs.OR.CY.LT. AYS)  CALL  ENDPL  (0) 

DRAW 

19 

IF  (CX.LT. AXs.OR.CY.LT. AYS)  RETURN 

DRAW 

20 

CX= (CX-( 1024. 0*3. 0/a. 1315) ) *HOR/ (1024.0*5.0/8.1315) 

ORAm 

21 

CY= (CY-( 780. 0*0.59/6. 2) ) *VET/ ( 780 . 0*5 . 0/6 .2) 

ORAW 

22 

CALL  ENOGfi  (0) 

ORAW 

23 

DO  1  1=1,30 

DRAW 

24 

J7 


X(Itl)=CX5Y(Itl)*CYS2(It 1>*ZZ(1> 

1  CONTINUE 
CALL  REDO 
CALL  CLEAR 
CALL  PACT 

I=0$FLO=0.05XC(1)=0.0 

2  CALL  HEIGHT  (.07) 

YPOS=5.0-.25*FLOAT (I) 

CALL  MESSAG  ( *  SELECT  POINT  FOR  ARS  CURVES  *  *  1 0 0 • -2 .5 • YPOS > 
CALL  RESET  (’HEIGHT*) 

1=1*1 

CALL  CURSOR  (CXfCY) 

IF  (I.EQ.l)  8X=CX 
IF  (I.EQ.l)  8 Y=CY 

DEL  =  SGRT  (  (BX-CX) **2)  *ABS  (  (BY-CY) **2) 

IF  (I.EQ.l)  DEL=1 0.0 
IF  (DEL. LT. 9.0)  FLG=1.0 

X  ( I f2)  =  (CX- (1024.0*3.0/8.1315) ) *HOR/ ( 1 024 . 0*5 . 0/8 . 1  31  5 ) 

Y ( 1.2) =(CY- (780.0*0.59/6.2) ) *VET/ (780. *5. 0/6. 2) 

IF  (CX.LT.AXS.OR.CY.LT.AYS)  CALL  ENDPL  (0) 

IF  (CX.LT.AXS.OR.CY.LT.AYS)  RETURN 
Z ( I • 2 ) =  ZZ  ( 1 ) 

A=  XC  ( 1 ) 

IF  (A.EQ.0.0)  XC ( 1 ) *X ( I #  2) 

IF  (A.EQ.0.0)  YC ( 1 ) =Y ( I . 2 ) 

IF  (A.EQ.0.0)  GO  TO  2 
XC ( 2 ) =  X ( I • 2 ) 

YC(2)=Y(I.2) 

CALL  RLVEC  ( XC  ( 1 )  • YC ( 1 ) . XC  (2)  ♦  YC ( 2) . 1 20  1 ) 

XC(1)=XC(2) 

YC ( 1 ) = YC ( 2 ) 

IF  (I.GT.19)  CALL  MESSAG  (16HT00  MANY  PO I NTSS t 1 00 • . 2 t .2 ) 
IF  (I.GT.19)  CALL  ENDGR  (0) 

IF  (I.GT.19)  CALL  CURSOR  (CX.CY) 

IF  (I.GT.19)  RETURN 
IF  (FLG.EQ.0.0)  GO  TO  2 

CALL  MESSAG  (’END  OF  CUR VES * . 1 0 0 ♦ .2 . . 2) 

CALL  ENDPL  (0) 

NP  =  I 
N=2 

X(NP.2)=X(1.2)SY(NP.2)»Y(1 .2) 

LIM=NC*1 

3  CONTINUE 

N  =  N4  l 

CALL  CLEAR 

call  pact 

XC ( 1 ) =0.0 
NZ=NP-1 
L=N- 1 

DO  4  K= 1 . NZ 

CALL  RLVEC  (X ( 1 t 1 ) tY ( 1 « \ ) • X (K*L) t Y (K.L) • 1201 ) 

4  CONTINUE 
NPP=NP-1 

DO  5  J= 1 1 NPP 
CALL  HEIGHT  (.07) 

YPOS=5.0-.25*FLOAT ( J) 

CALL  MESSAG  ( *  SELECT  POINT  FOR  ARS  CUR VE$ *  *  1 00  * -2 . 5 . YPOS ) 
CALL  RESET  (’HEIGHT*) 

CALL  CURSOR  (CX.CY) 

X ( J.N)  =  (CX-( 1024.0*3. 0/8 .13 15) ) *HOR/ ( 1 024 . 0 *5 • 0/8 . 1  3 1 5 ) 

Y ( J«N)= (CY- (780 .0*0 .59/6.2) ) *VE T/ ( 780 . 0*5 . 0/6 . 2 ) 

IF  (CX.LT.AXS.OR.CY.LT.AYS)  CALL  ENDPL  (0) 

IF  (CX.LT.AXS.OR.CY.LT.AYS)  RETURN 
NNN=N- 1 

Z  (JtN) *ZZ ( NNN ) 

A=  XC ( 1 ) 
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DRAW  32 
DRAW  33 
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DRAW  45 
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DRAW  49 
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DRAW  54 
DRAW  55 
DRAW  56 
DRAW  57 
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DRAW  59 
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DRAW  61 
DRAW  62 
DRAW  63 
DRAW  64 
DRAW  65 
DRAW  66 
DRAW  67 
DRAW  68 
DRAW  69 
DRAW  70 
DRAW  71 
DRAW  72 
DRAW  73 
DRAW  74 
DRAW  75 
DRAW  76 
DRAW  77 
DRAW  78 
DRAW  79 
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3, 


o  o  o  r> 


C 


C 


IF  (A.EO.O.O)  XC(l)*X(JfN) 

IF  (A.EQ.0.0)  YC(l)»Y(JfN) 

IF  (A.EQ.0.0)  GO  TO  5 
XC(2)=X(J.N) 

YC(2)»Y(J»N) 

CALL  RLVEC  (XCC1)  •YC(l)fXCC2) «YC(2) «1201) 

XC { 1 ) =XC ( 2 ) 

YC(1)=YC(2) 

5  CONTINUE 

X (NP.N) =X ( 1 tN) 

Y(NPfN)=Y(ltN) 

Z ( NPf N) =Z ( 1 . N ) 

IF  (N.LT.LIM)  CALL  HESSAG  ( 1 3HEND  OF  CURVES. 1 00 . . 2 . . 2 ) 

IF  (N.LT.LIH)  CALL  ENDPL  (0) 

IF  (N.LT.LIM)  GO  TO  3 

CALL  MESSAG  ('END  OF  CUR VES *  *  1 0 0 . . 2 ♦ . 2 ) 

CALL  ENDPL  (0) 

NT  =  NC ♦ 2 
DO  6  1  =  1.  NP 
X  ( I  *  NT ) =X ( I  * l ) 

Y ( I tNT ) * Y ( I t i ) 

Z(I  .NT)=ZZ(NC) 

6  CONTINUE 

PUNCH  ( 8  t  8 )  NT  *  NP 
DO  7  N=ltNT 

PUNCH  ( 8  *  9 )  ( X ( I  9  N ) *Y ( I  .N ) *Z(ItN) ♦  X  ( I  ♦  1  .  N  ) ♦  Y ( I ♦ 1 *N) .  Z  (  I  ♦  1 
1  NP  *  2 ) 

7  CONTINUE 
RETURN 

8  FORMAT  (3X.3HARSf4X.2llO) 

9  FORMAT  ( 1  OX 9 6F 1 0 • 4) 

END 

SUBROUTINE  ZOOM 

SUBROUTINE  ZOOM  ENLARGES  A  USER  SELECTED  AREA  OF  THE  DIS¬ 
PLAYED  PLOT 

DIMENSION  X ( 3  o  0 ) t  Y(300)t  FILC999).  101(3).  ID2<3) 

COMMON  /ZAP/  ICONT 
COMMON  /ZOP/  HARt  VAT 

DATA  ID1  /10HSELECT  LOW.  10HER  LEFT  C.  10HORNEP  / 

DATA  ID2  /10HSELECT  UPP.  10HER  RIGHT  .  1 OHCORNER  / 

CALL  BACKUP 
CALL  PICT 

HOR=HAR 

vet=vat 

CALL  BACKUP 
PRINT  *.  I D 1 
PRINT  ID  1 
CALL  CURSOR  (CX.CY) 

CX= (CX- (1024.0*3.0/8.1315)) *HOR / ( 1 024 . 0*5 . 0/8. 1 3 1 5 ) 
CY=(CY-(780.0*.59/6.2) ) *VET/ (780.0*5.0/6.2) 

XLL=CXSYLL=CY 
PRINT  *.  ID2 
PRINT  *.  102 
CALL  CURSOR  (CX.CY) 

CX= (CX- ( 1 024.0*3.0/8. 1315) ) *HOR/ ( 1 0 24 . 0 *5 . 0 /8 . 1 3 1 5 ) 

CY= (CY- (780.0*. 59/6. 2) ) *VET/ ( 780 . 0*5. 0/6. ?) 

XUR=CXSYUR=CY 
IF  (XLL.GT.CX)  XUR=XLL 
IF  (XLL.GT.CX)  XLL=CX 
IF  (YLL.GT.CY)  YUP= YLL 
IF  (YLL.GT.CY)  YLL=C Y 
XOP=XLLSYOR=YLL 
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HOR=XU«-XLLSVET=YUR-YLL 
CALL  CLEAR 

CALL  PHYSOR  ( 3 • 0  f  0 • 59 ) 

CALL  TITLE  (•  ZOOM  **10*'  •tit*  *tl*5. 0*5.0) 
XN£ AMAX 1 (HORt VET) 

XNEW=10.0*FLOAT ( IF  IX (XNEW/10.0) M) 

MOR=XNEW 
VE  T=XNEte 

XOR=10.0*FLOAT ( IF  IX (XOR/IO.O) ) 

YOR  =  lO.O*FLOAT ( IF  IX (YOR/IO.O) ) 

XUR=XOR*HOR 
YUR=YOR ♦VET 

CALL  GRAF  ( XOR t HOR * XUR t  YOR t VET t YUR) 

1  READ  (12*7)  IOENT 

IF  (EOF ( 12 ) )  1 1 2 

2  READ  ( 1 2  1 8 )  A  t  8  tC  tHOR  #  VET 

3  READ  ( 1 2 1 9 )  N 

IF  (N.EQ.l)  REAO  ( 1 2 1 6 )  HO  «  VE 

IF  (N.EQ.l)  GO  TO  3 

IF  (N.EQ.-2)  REAO  (12t9)  NF 

IF  (N.EQ.-2)  READ  (12*6)  (FIL ( I J) *  I J*1 *NF) 

IF  (N.EQ.-2)  GO  TO  3 

IF  (N.EQ.O)  GO  TO  5 

REAO  ( 12  1 1 0 )  ( X ( I ) t Y ( I ) *1*1. N) 

INp=  1 

00  4  I  *  1  •  N 

IF  (X(I) .LT.XOR.OR.X(I) .GT.XUR)  GO  TO  4 
IF  (Y(I)  .LT.YOR.OR.Yd)  .GT.YUR)  GO  TO  4 
X<IND)*X(I)SY<INO)=Y<I) 

I ND*I NO ♦ 1 

4  CONTINUE 
N* I ND- 1 

IF  (N.LT.2)  GO  TO  3 
CALL  CURVE  (XtYtN.O) 

GO  TO  3 

5  CONTINUE 

CALL  CURSOR  (CXtCY) 

CALL  ENOGR  (0) 

CALL  RESET  (*PHYSOR») 

I CONT* I CONT ♦ 1 
RETURN 


6  FORMAT  (2F12.4) 

7  FORMAT  ( 8 A  1 0 ) 

0  FORMAT  (6F12.4) 

9  FORMAT  (1110) 

10  FORMAT  (6F12.4) 

end 

SUBROUTINE  OUT 
C  RETURN  TO  CYBER  OPERATING  SYSTEM 
CALL  CLEAR 
STOP 
ENO 

SUBROUTINE  PACT 

OIMENSION  X ( 30 0 )  t  Y(300)t  FIL(999) 

COMMON  /ZAP/  ICONT 

COMMON  /ZIP/  ZZ  ( 30 )  t  HORt  VETt  NC 

1  READ  ( 1 2  t  5 )  NCt (ZZ (I ) t 1*1 tNC) 

IF  ( EOF (12))  1 1  2 

2  READ  ( 1 2 1 6 )  AtBtCtHOR, VET 
CALL  PHYSOR  (3.0*0.59) 

CALL  TITLE  ('BUILD  ARS'tlOt*  *tlt*  **1*5. 0*5.0) 
CALL  GRAF  (0 .OtriOR ,HORt  0. Ot VETt VET) 

3  REAO  (12*7)  N 

IF  (N.EQ.O)  GO  TO  4 
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READ  <12*B>  (X ( I > . Y ( I ) , 1=1 ,N) 

PACT 

CALL  CURVE  <X.Y»N»0) 

PACT 

60  TO  3 

PACT 

4 

CONTINUE 

PACT 

ICONT* ICONT*  1 

PACT 

RETURN 

PACT 

C 

PACT 

5 

FORMAT 

(I5.15F5.1) 

PACT 

6 

FORMAT 

(6F12.4) 

PACT 

7 

FORMAT 

UIlO) 

PACT 

8 

FORMAT 

(6F12.4) 

PACT 

ENO 

PACT 
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US  Army  Training  &  Doctrine  Cmd 
ATTN:  ATCD 

ATCO-M 

Fort  Monroe,  VA  '  23651 

3  Director 
US  Army  TRADOC  Systems 

Analysis  Activity 
ATTN:  ATAA-SL 
ATAA-TFB 
ATAA-TEM 

White  Sands  Missle  Range 
NM  88002 

1  Commander 

US  Army  Field  Artillery  School 
Ft  Sill,  OK  73503 

3  Commandant 

US  Army  Infantry  School 
ATTN:  Infantry  Agency 

'ATSH-CD-CSO-OR  (2  cys) 
Fort  Benning,  GA  31905 

3  Commander 

US  Army  Armor  Center 
ATTN:  ATZK-CG 
ATZK-CD 
ATZK-M 1 

Fort  Knox,  KY  40121 

3  Commander 

Naval  Weapons  Center 
ATTN:  Mr.  Mel  Keith  -  31804 
Mr.  Rex  Randolph 
Mr.  Jack  Bates 
China  Lake,  CA  93555 
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No.  of 
Copies 


DISTRIBUTION  LIST 


No.  of 

Organization  Copies  Organization 

1  Commandant 

US  Marine  Corps 
ATTN:  APW,  LTC  Egan 
Washington,  DC  20380 

2  Commander 

Marine  Corps  Development  and 
Education  Command 
ATTN:  Plans  and  Studies  Div 
Firepower  Div 
Quantico,  VA  22134 

1  AFELM,  The  Rand  Corporation 
ATTN:  Library-D 
1700  Main  Street 
Santa  Monica,  CA  90406 

ABERDEEN  PROVING  GROUND 

Dir,  USAMSAA 

ATTN:  DRXSY-D 

DRXSY-MP  (H.  Cohen) 

Cdr ,  USATECOM 

ATTN:  DRSTE-TO-F 
Dir,  USACSL ,  Bldg  E3516,  EA 
ATTN:  DRDAR-CLB-PA 
DRDAR-CLN 
DRDAR-CLJ-L 
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USER  EVALUATION  OF  REPORT 


Please  take  a  few  minutes  to  answer  the  questions  below;  tear  out 
this  sheet,  fold  as  indicated,  staple  or  tape  closed,  and  place 
in  the  mail.  Your  comments  will  provide  us  with  information  for 
improving  future  reports. 

1 .  BRL  Report  Number _ 

2.  Does  this  report  satisfy  a  need?  (Comment  on  purpose,  related 
project,  or  other  area  of  interest  for  which  report  will  be  used.) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
source,  design  data  or  procedure,  management  procedure,  source  of 
ideas,  etc.) _ 


4.  Has  the  information  in  this  report  led  to  any  quantitative 
savings  as  far  as  man-hours/contract  dollars  saved,  operating  costs 
avoided,  efficiencies  achieved,  etc.?  If  so,  please  elaborate. 


5.  General  Comments  (Indicate  what  you  think  should  be  changed  to 
make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) 


6.  If  you  would  like  to  be  contacted  by  the  personnel  who  prepared 
this  report  to  raise  specific  questions  or  discuss  the  topic, 
please  fill  in  the  following  information. 

Name: 


Telephone  Number: 
Organization  Address: 


